﻿Module Module1
  Sub Main()
    Dim arr() As String = {"Mario", _
        " De Ghetto", _
        " www.deghetto.it", " (C) 2007"}
    Console.WriteLine(concatena(arr))
    Console.ReadLine()
  End Sub
  Public Function concatena(ByVal arr() _
          As String) As String
    Dim stringa As String = ""
    For i As Integer = 0 _
            To arr.GetUpperBound(0)
      stringa &= arr(i)
    Next
    Return stringa
  End Function
End Module
